#!/usr/bin/env perl

use v5.10.1;
use strict;
use warnings;
use Encode;


say "正则测试!";


while (<>) {
	chomp;

	if(/wasa/i){
		say "Matched: |$`<$&>$'|";
	}
	else{
		say "No match: |$_|";

	}
}
